﻿Imports System
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
<Serializable()> Public Class LineSources
    Implements ICloneable
    Private m_ArrayLineSources(-1) As Line  '线源数组的数组
    Private m_nStack As Integer


    ''' <summary>
    ''' 线源数组的数组。每一条线源由若干个面源组成
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property ArrayLineSources() As Line()
        Get
            Return Me.m_ArrayLineSources
        End Get
        Set(ByVal value As Line())
            Me.m_ArrayLineSources = value
        End Set
    End Property
    Property nStack() As Integer
        Get
            Return Me.m_nStack
        End Get
        Set(ByVal value As Integer)
            Me.m_nStack = value
        End Set
    End Property
    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New LineSources
        ReDim obj.ArrayLineSources(Me.m_ArrayLineSources.Length - 1)
        For i As Integer = 0 To Me.m_ArrayLineSources.Length - 1
            obj.ArrayLineSources(i) = Me.m_ArrayLineSources(i).Clone
        Next
        obj.nStack = Me.m_nStack
        Return obj

    End Function
End Class
